home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / ColorPickerComponents.mod < prev    next >
Encoding:
Text File  |  1995-08-10  |  3.7 KB  |  100 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        ColorPickerComponents.mod
  3.  
  4.      Contains:    Color Picker Components.Component Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$TAGS-*)
  21. (*$CALLING PASCAL*)
  22. MODULE ColorPickerComponents;
  23.  
  24. IMPORT SYSTEM, Types, Dialogs, ColorPicker, Components, CMICCProfile;
  25.  
  26. (* $PUSH*)
  27. (* $ALIGN MAC68K*)
  28. (* $LibExport+*)
  29.  
  30. CONST
  31.     kPickerComponentType*        = LONG("cpkr");
  32.  
  33.     kInitPicker*                    = 0;
  34.     kTestGraphicsWorld*            = 1;
  35.     kGetDialog*                    = 2;
  36.     kGetItemList*                = 3;
  37.     kGetColor*                    = 4;
  38.     kSetColor*                    = 5;
  39.     kEvent*                        = 6;
  40.     kEdit*                        = 7;
  41.     kSetVisibility*                = 8;
  42.     kDrawPicker*                    = 9;
  43.     kItemHit*                    = 10;
  44.     kSetBaseItem*                = 11;
  45.     kGetProfile*                    = 12;
  46.     kSetProfile*                    = 13;
  47.     kGetPrompt*                    = 14;
  48.     kSetPrompt*                    = 15;
  49.     kGetIconData*                = 16;
  50.     kGetEditMenuState*            = 17;
  51.     kSetOrigin*                    = 18;
  52.     kExtractHelpItem*            = 19;
  53.  
  54.  
  55. PROCEDURE InitPicker*(thePicker: Components.ComponentInstance; VAR data: ColorPicker.PickerInitData): LONGINT;
  56.     EXTERNAL PASCAL;
  57. PROCEDURE GetDialog*(thePicker: Components.ComponentInstance): Dialogs.DialogPtr;
  58.     EXTERNAL PASCAL;
  59. PROCEDURE TestGraphicsWorld*(thePicker: Components.ComponentInstance; VAR data: ColorPicker.PickerInitData): LONGINT;
  60.     EXTERNAL PASCAL;
  61. PROCEDURE GetTheColor*(thePicker: Components.ComponentInstance; whichColor: ColorPicker.ColorType; color: ColorPicker.PMColorPtr): LONGINT;
  62.     EXTERNAL PASCAL;
  63. PROCEDURE SetTheColor*(thePicker: Components.ComponentInstance; whichColor: ColorPicker.ColorType; color: ColorPicker.PMColorPtr): LONGINT;
  64.     EXTERNAL PASCAL;
  65. PROCEDURE DoEvent*(thePicker: Components.ComponentInstance; VAR data: ColorPicker.EventData): LONGINT;
  66.     EXTERNAL PASCAL;
  67. PROCEDURE DoEdit*(thePicker: Components.ComponentInstance; VAR data: ColorPicker.EditData): LONGINT;
  68.     EXTERNAL PASCAL;
  69. PROCEDURE SetVisibility*(thePicker: Components.ComponentInstance; visible: BOOLEAN): LONGINT;
  70.     EXTERNAL PASCAL;
  71. PROCEDURE DisplayPicker*(thePicker: Components.ComponentInstance): LONGINT;
  72.     EXTERNAL PASCAL;
  73. PROCEDURE ItemHit*(thePicker: Components.ComponentInstance; VAR data: ColorPicker.ItemHitData): LONGINT;
  74.     EXTERNAL PASCAL;
  75. PROCEDURE GetItemList*(thePicker: Components.ComponentInstance): LONGINT;
  76.     EXTERNAL PASCAL;
  77. PROCEDURE SetBaseItem*(thePicker: Components.ComponentInstance; baseItem: INTEGER): LONGINT;
  78.     EXTERNAL PASCAL;
  79. PROCEDURE GetTheProfile*(thePicker: Components.ComponentInstance): CMICCProfile.CMProfileHandle;
  80.     EXTERNAL PASCAL;
  81. PROCEDURE SetTheProfile*(thePicker: Components.ComponentInstance; profile: CMICCProfile.CMProfileHandle): LONGINT;
  82.     EXTERNAL PASCAL;
  83. PROCEDURE GetPrompt*(thePicker: Components.ComponentInstance; VAR prompt: Types.Str255): LONGINT;
  84.     EXTERNAL PASCAL;
  85. PROCEDURE SetPrompt*(thePicker: Components.ComponentInstance; VAR prompt: Types.Str255): LONGINT;
  86.     EXTERNAL PASCAL;
  87. PROCEDURE GetIconData*(thePicker: Components.ComponentInstance; VAR data: ColorPicker.PickerIconData): LONGINT;
  88.     EXTERNAL PASCAL;
  89. PROCEDURE GetEditMenuState*(thePicker: Components.ComponentInstance; VAR mState: ColorPicker.PickerMenuState): LONGINT;
  90.     EXTERNAL PASCAL;
  91. PROCEDURE SetTheOrigin*(thePicker: Components.ComponentInstance; where: Types.Point): LONGINT;
  92.     EXTERNAL PASCAL;
  93. PROCEDURE ExtractHelpItem*(thePicker: Components.ComponentInstance; itemNo: INTEGER; whichMsg: INTEGER; VAR helpInfo: ColorPicker.HelpItemInfo): LONGINT;
  94.     EXTERNAL PASCAL;
  95.  
  96. (* $ALIGN RESET*)
  97. (* $POP*)
  98.  
  99.  END ColorPickerComponents.
  100.